home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / ai_rolan.scp < prev    next >
Text File  |  1994-12-05  |  7KB  |  364 lines
  1. { ROLAND_ENTER_COMBAT
  2.     //@@@ TRANSLATE F (CONTEXT HERE? WHAT ROCK? - THE PLANET)
  3.                 @Ç║       `é┐                $Ç╜      "ROLAND: You bastard! /FBâtard! /GDu Schwein!"
  4.     @Ç║       `âÇ                $Ç╜      "ROLAND: That was my only way off this rock! /FC'était ma seule façon de m'en sortir! /GDas war meine letzte Möglichkeit, hier wegzukommen!"
  5. }
  6.  
  7. { ROLAND_DEATH
  8.     // SET ONE OF THE WHO-YOU-ARE FLAGS IN HERE.
  9.     ^üÑ           = 0
  10.  
  11.     // COLLISIONS/INVULNERABLE PASS -BES
  12.     u          CURFIG OFF
  13.     ║            ON
  14.  
  15.     M      DIE
  16.     o         
  17.     
  18.     @Ç¢               PLAYER
  19.     A  OFF
  20.     £    ROLAND GRADUAL
  21.     M      TAUNT3 CONTINUE
  22.     W    20
  23.     //CONFRONTENEMY
  24.     //@@@ TRANSLATE 
  25.                 @Ç║       `ä¿               $üé     "I'm sorry I had to kill you,~but I must admit I'm enjoying the silence."
  26.     è          OFF
  27.     A  ON
  28.     i           LEX ROLDEAD
  29. }
  30.  
  31. //{ ROLAND_STAND
  32.     // MOTION COWER
  33. //}
  34.  
  35.  
  36. { ROLAND_STIMULUS _DAMAGE
  37.  
  38.     :GOT_HIT
  39.     I ( ^üñ            == 1 ) THEN
  40.         {
  41.         // SIMULATE PAIN AND RECOILING...
  42.         @Çå    `üî             
  43.         @Çå    `â»         
  44.         I ( @Çó            ( ^ü¿  ) == 0 && .ÇéÇÇ        > 0 ) THEN
  45.             {
  46.                         ^ü¿ 
  47.             //@@@ TRANSLATE F
  48.             ^ü¿  = @üì            `ä╡                $Ç╜      "ROLAND: Please... /FS.V.P... /GBitte..."
  49.             }
  50.         
  51.         W    15
  52.         I ( ^üú        == 0 ) THEN
  53.             {
  54.             I  ^       = 1 OR ^       = 3 THEN
  55.                 {
  56.                             ^ü¿ 
  57.                 //@@@
  58.                 ^ü¿  = @Ç║       `àÅ                 $üé     "Turn on the Main Gun, damn you!"
  59.                 ^       ++
  60.                 }
  61.             }
  62.         }
  63.     E   
  64.         {
  65.         M      SUPER_RECOIL_TL
  66.         I ( @Çó            ( ^ü¿  ) == 0 && .ÇéÇÇ        > 0  ) THEN
  67.             {
  68.                         ^ü¿ 
  69.             //@@@ TRANSLATE F
  70.             ^ü¿  = @üì            `ä┤            $Ç╜      "ROLAND: No! /FNon! /GNein!"
  71.             }
  72.         W    15
  73.                     ^ü¿ 
  74.         I ( ^üú        == 0 ) THEN
  75.             {
  76.             I  ^       = 1 OR ^       = 3 THEN        
  77.                 {
  78.                             ^ü¿ 
  79.                 //@@@
  80.                 ^ü¿  = @Ç║       `磠                $üé     "Stop whining, and turn on that gun!"
  81.                 ^       ++
  82.                 }
  83.             }
  84.         }
  85.     J    #Çä  
  86.  
  87.     :LEAVE
  88. }
  89.  
  90. { WARNROLAND
  91.     @Ç¢               PLAYER
  92.  
  93.     A  OFF
  94.  
  95.     I ( ^ü₧       == 1 ) THEN
  96.         J    #Çå   
  97.  
  98.     è          OFF
  99.     £    ROLAND GRADUAL
  100.     â      
  101.     M      POINT_AT CONTINUE
  102.  
  103.     I ( ^ü₧       == 1 ) THEN
  104.         J    #Çå   
  105.  
  106.     //@@@
  107.                 ^ü¿ 
  108.                 @Ç║       `祠             $üé     "No tricks."
  109.  
  110.     M      STAND CONTINUE
  111.  
  112.     :BYEBYE
  113.     A  ON
  114.  
  115. }
  116.  
  117.  
  118. { ROLAND_AI
  119.  
  120.     P        ~ÇÇ   
  121.     P        ~Çü          
  122.     P        ~Çé    
  123.     P        ~Çâ     
  124.     P        ~Çä      
  125.     P        ~Çà    
  126.     P        ~Çå  
  127.  
  128.     ~Çü           = 0
  129.     ~Çé     = 0
  130.     ^       = 1
  131.     ~Çâ      = 0
  132.     ~Çà     = 4
  133.     ~Çä       = 1
  134.  
  135.     G  BEGHERE
  136.  
  137.     M      START_COWERING
  138.  
  139.     :PLEADMORE
  140.  
  141.     â      
  142.  
  143.     I ( .ÇéÇÇ        <= 0 ) THEN
  144.         é     
  145.  
  146.     I ( ^üí         > 0 ) THEN J    #Çê      
  147.  
  148.     I ( @Çô        ( SUPER_RECOIL_TL ) ) THEN J    #Çê      
  149.  
  150.     ~ÇÇ    = 0
  151.  
  152.     I ( @Çí         ( CURFIG, CORNER ) ) THEN
  153.         ~ÇÇ    += 1
  154.  
  155.     // EITHER LEX IS CLOSE BY, OR HE IS KINDA CLOSE AND IN COMBAT.
  156.     I ( @Çò           () < 450 ) THEN
  157.         ~ÇÇ    += 2
  158.  
  159.     I ( ^üú        ) THEN
  160.         ~ÇÇ    = 99
  161.  
  162.     //_COMP = @COMPASS
  163.     //CAPTION "Comp=%ld" _COMP CONTINUE 
  164.  
  165.     ~Çâ      = 1
  166.  
  167.     N     ( ~ÇÇ    )
  168.         {
  169.         U    0  // LITTLE RELATIVE DANGER. LEX HANGING OUT.
  170.             I ( @Çô        ( COWER ) == 0 ) THEN
  171.                 M      COWER CONTINUE
  172.             £    LEX
  173.             ^üñ            = 0
  174.             X ÇÇ 
  175.  
  176.         U    1  // IN THE CORNER HANGIN' OUT
  177.             I ( @Çô        ( PLEAD ) == 0 ) THEN
  178.                 {
  179.                 M      PLEAD CONTINUE
  180.                 }
  181.             ^üñ            = 1
  182.             £    LEX
  183.             X ÇÇ 
  184.  
  185.         U    2  // HE IS NEAR ME!  AHH!
  186.             £    LEX
  187.  
  188.             I ( @Çä      NOTIN 28, 100 ) THEN
  189.                 £    42
  190.  
  191.             M      BACK_AWAY
  192.  
  193.             I ( @Çô        ( PLEAD ) == 0 ) THEN
  194.                 {
  195.                 M      START_PLEADING
  196.                 M      PLEAD CONTINUE
  197.                 }
  198.             ^üñ            = 1
  199.             £    LEX
  200.             X ÇÇ 
  201.  
  202.         U    3  // IN THE CORNER AND LEX IS NEAR ME!
  203.             I ( ~Çü           == 0 AND ^       == 2 ) THEN
  204.                 {
  205.                             ^ü¿ 
  206.                 //@@@ TRANSLATE F
  207.                             @Ç║       `骠                $Ç╜      "ROLAND: Don't Kill Me! I'll activate the gun! /FNe me tue pas! Ou j'arme le pistolet! /GWarne dich: Wenn du mich tötest,~ aktiviere ich die Waffe!"
  208.                 ~Çü           = 1
  209.                 ^       += 1
  210.                 }
  211.             E   
  212.                 ~Çâ      = 1
  213.  
  214.             I ( @Çô        ( PLEAD ) == 0 ) THEN
  215.                 {
  216.                 M      PLEAD CONTINUE
  217.                 }
  218.             ^üñ            = 1
  219.             £    LEX
  220.             X ÇÇ 
  221.         U    99
  222.             I ( @Çô        ( PLEAD ) == 0 ) THEN
  223.                 M      PLEAD CONTINUE
  224.             ^üñ            = 1
  225.             £    LEX
  226.             ~Çâ      = 0
  227.             X ÇÇ 
  228.         }
  229.  
  230.     I ( ~Çâ      == 1 ) THEN
  231.         {
  232.         W    10
  233.         I ( ~Çä       <= 0 && @Çó            ( ^ü¿  ) == 0 ) THEN
  234.             {
  235.                         ^ü¿ 
  236.             I ( @Çà    ( 0, 10 ) > 5 ) THEN
  237.                 {
  238.                 ^ü¿  = @üì            `ä╡                $Ç╜      "ROLAND: Please... /FS.V.P... /GBitte..."
  239.                 }
  240.             E   
  241.                 ^ü¿  = @üì            `ä┤            $Ç╜      "ROLAND: No! /FNon! /GNein!"
  242.             ~Çà     += 1
  243.             ~Çä       = ~Çà    
  244.             }
  245.         E   
  246.             ~Çä       -= 1
  247.         }
  248.  
  249.     I ( ~Çé     == 0 && ~Çü           == 1 && .ÇéÇÇ        < 40 && ^ü₧       == 0 && ^üú        == 0 ) THEN 
  250.         {
  251.  
  252.         J    #Çë       
  253.         }
  254.     
  255.     J    #Çê      
  256.  
  257.  
  258.     //======================
  259.  
  260.     :RESTARTGUN
  261.  
  262.     ~Çå   = 0
  263.  
  264.     I ( @Çó            ( ^ü¿  ) ) THEN
  265.                    ^ü¿ 
  266.  
  267.     M      TAUNT2 CONTINUE
  268.                 ^ü¿ 
  269.     ^ü¿  = @Ç║       `ä╗                 $Ç╜      "ROLAND: Alright! Alright! /FD'accord! D'accord! /GSchon gut! Schon gut!"
  270.                 ^ü¿ 
  271.  
  272.     :TELLMOVE
  273.     I ( @Çí         ( PLAYER, ZONE ) ) THEN
  274.         {
  275.         ~Çå   ++
  276.         //@@@ TRANSLATE F
  277.         M      POINT_AT CONTINUE
  278.                     ^ü¿ 
  279.         ^ü¿  = @Ç║       `ä╝              $Ç╜      "ROLAND: Move back! /FRecule! /GZurück!"
  280.         â      
  281.         I ( @Çí         ( PLAYER, ZONE ) ) THEN
  282.             W    2 SECONDS
  283.  
  284.         I ( ~Çå   == 3 ) THEN
  285.             {
  286.                         ^ü¿ 
  287.             //@@@ TRANSLATE F
  288.             ^ü¿  = @Ç║       `ä╡                $Ç╜      "ROLAND: Please... /FS.V.P... /GBitte..."
  289.                         ^ü¿ 
  290.             ~Çé     = 0
  291.             J    #Çê      
  292.             }
  293.  
  294.         J    #Çè     
  295.         }
  296.  
  297.     @Ç¢               PLAYER
  298.     A  OFF
  299.  
  300.     @Ç¢               ROLAND
  301.     ^üñ            = 0
  302.     G  RESTART WALK
  303.  
  304.     //CAPTION "rol face"
  305.     £    -90 GRADUAL
  306.  
  307.     â      
  308.  
  309.     //CAPTION "rol start"
  310.     M      START_GUN 90
  311.     M      STAND CONTINUE
  312.  
  313.     //CAPTION "no t"
  314.     // POINT AT ROLAND AND SAY "No Tricks!"
  315.     @Ç¢               PLAYER
  316.     I ( @Çí         ( PLAYER, ZONE ) == 0 ) THEN
  317.         {
  318.         @Çì      WARNROLAND     
  319.         }
  320.     @Ç¢               ROLAND
  321.     
  322.     @Çå   (`ä╢          )
  323.  
  324.     ^üú        = 1
  325.  
  326.     @Ç¢               PLAYER
  327.     A  ON
  328.  
  329.     @Ç¢               ROLAND
  330.     M      WALK_BACK CONTINUE
  331.     W    10
  332.     o         
  333.  
  334.     I ( @Çí         ( PLAYER, RITESIDE ) ) THEN
  335.         {
  336.         £    LEX GRADUAL
  337.         M      BACK_AWAY
  338.         }
  339.     E   
  340.         {
  341.         I ( @Çí         ( PLAYER, LEFTSIDE ) ) THEN
  342.             {
  343.             //GO RITESIDE WALK
  344.             G  DEST WALK
  345.             ^üº       = 0
  346.             }
  347.         E   
  348.             {
  349.             //GO LEFTSIDE WALK
  350.             G  BEGHERE WALK
  351.             ^üº       = 1
  352.             }
  353.         }
  354.  
  355.     £    LEX
  356.  
  357.     M      START_PLEADING CONTINUE
  358.  
  359.     ~Çé     = 1
  360.     J    #Çê      
  361. }
  362.  
  363. //$ 26 - version number
  364.